VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CUsuario"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit
Dim LUsuario As New LUsuario
Dim lEstado As New lEstado
Dim LPerfil As New LPerfil
Public Function getLista() As Collection
Dim bean As New busuario
bean.bestado.nCodigo = UtilConstantes.ESTADO_USUARIO_ACTIVO
Set getLista = LUsuario.getLista(bean)
End Function
Public Function eliminar(busuario As busuario)
eliminar = LUsuario.eliminar(busuario)
If eliminar = UtilConstantes.OPT_ERROR_ENCONTRADO Then
    utilMensaje.muestraMensaje registroNoEliminado
End If
End Function
Public Sub mostrarNuevo()
Dim Frm As New frmEntrarUsuario
Frm.modo = UtilConstantes.MODO_NUEVO
Set Frm.ListaEstado = lEstado.getEstadosUsuario
Set Frm.ListaPerfil = LPerfil.getLista
Frm.Show 1
End Sub
Public Sub mostrarActualizar(bean As busuario)
Dim Frm As New frmEntrarUsuario
Frm.modo = UtilConstantes.MODO_ACTUALIZAR
Set Frm.ListaEstado = lEstado.getEstadosUsuario
Set Frm.ListaPerfil = LPerfil.getLista
Set Frm.bean = bean
Frm.Show 1
End Sub
Public Function guardarNuevo(bean As busuario) As Integer
If LUsuario.guardarNuevo(bean) Then
    utilMensaje.muestraMensaje DatosGuardados
End If
End Function
Public Function actualizar(bean As busuario) As Integer
actualizar = LUsuario.actualizar(bean)
If Not actualizar = UtilConstantes.OPT_DATOS_GUARDADOS Then
    utilMensaje.muestraMensaje errorEncontrado
End If
End Function
Public Sub login(bean As busuario)
Select Case LUsuario.login(bean)
Case UtilConstantes.OPT_LOGIN
    frmPrincipal.Show
    frmPrincipal.stBarra.Panels(1).Text = "Usuario Activo : " & Trim(UCase(bean.sNombre))
    Unload frmLogin
Case UtilConstantes.OPT_LOGIN_CLAVE_INCORRECTA
    utilMensaje.muestraMensaje ClaveIncorrecta
Case UtilConstantes.OPT_LOGIN_CUENTA_DESHABILITADA
    utilMensaje.muestraMensaje CuentaDeshabilitada
End Select
End Sub



